home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 November & December / Amiga-CD 1997 #11-12.iso / pd-disketten / ungepackt / 9_95 / apd-9-95-2 / arexx-workshop / arexxmanager2.1.rx / arexxshell2.1 < prev    next >
Text File  |  1996-01-25  |  1KB  |  40 lines

  1. /* ArexxShell2.1 programmed by Karsten Wysocki 08.03.94  */
  2.  
  3. OPTIONS FAILAT 100
  4.  
  5. call addlib("rexxsupport.library",0,-30,0)
  6.  
  7. portname = "ArexxShell"
  8. portlist = Showlist('p')
  9. if find(portlist,portname) > 0 then exit
  10. call openport(portname)
  11.  
  12. x = open(outwin,"CON:200/156/400/100/ArexxShell2.1 Input/SMART")
  13.  
  14. address = "REXX"
  15.  
  16. do forever
  17.    x = writech(outwin,'*')
  18.    x = writech(outwin,'>')
  19.    eingabe = readln(outwin)
  20.    stupeingabe = strip(upper(eingabe))
  21.    if stupeingabe = "EXIT" | stupeingabe = "X" then leave
  22.    ersteingabewort = word(stupeingabe,1)
  23.    if ersteingabewort = "ADDRESS"
  24.       then do
  25.          zweiteingabewort = word(stupeingabe,2)
  26.          if zweiteingabewort ~= "" then address = zweiteingabewort
  27.       end
  28.    x = open('ArexxInput','RAM:ArexxInput','W')
  29.    x = writeln('ArexxInput','/* */;OPTIONS RESULTS;RC=0;RESULT=" ";address="'address'";ADDRESS 'address';Echo " ";'eingabe';')
  30.    x = writeln('ArexxInput','Echo "ADDRESS:"address;Echo "RC:"RC " Result:"RESULT;exit')
  31.    x = close('ArexxInput')
  32.    commandline = 'RAM:' || '0a'x || 'sys:rexxc/rx ram:ArexxInput'
  33.    ADDRESS 'COMMAND'
  34.    commandline
  35. end
  36.  
  37. x = close(outwin)
  38.  
  39. exit
  40.